home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1997 April / macformat-049.iso / mac / Shareware Plus / Developers / dropg++ / usr / include / scripts / kdump < prev    next >
Encoding:
Text File  |  1997-02-20  |  742 b   |  38 lines  |  [TEXT/R*ch]
  1. # Dump kmem statistics
  2. #    @(#)kdump    8.1 (Berkeley) 6/10/93
  3.  
  4. set $last=75
  5. set $seg=43
  6.  
  7. # kmem_hdr
  8. define kmemhdr
  9.     printf "\tINUSE\tCALLS\tMEMUSED\tLIMBLK\tMAPBLK\tMAXUSED\t\tLIMIT\n"
  10. end
  11.  
  12. # pkmem <ptr>
  13. define pkmem
  14.     set $kp=(struct kmemstats *)$arg0
  15.     set $n = (struct kmemstats *)$kp - (struct kmemstats *)kmemstats
  16.     printf "%d:\t%d\t%d", $n, $kp->ks_inuse, $kp->ks_calls
  17.     printf "\t0x%x\t%d", $kp->ks_memuse, $kp->ks_limblocks
  18.     printf "\t%d\t0x%x\t\t%d\n", $kp->ks_mapblocks, $kp->ks_maxused, $kp->ks_limit
  19. end
  20.  
  21. define kmemdump
  22.     set $kp=(struct kmemstats *)(kmemstats + $arg0)
  23.     kmemhdr
  24.     pkmem $kp
  25. end
  26.  
  27. define kdumpall
  28.     set $i=0
  29.  
  30.     kmemhdr
  31.     set $kp = (struct kmemstats *)kmemstats
  32.     while ($i < $last)
  33.         pkmem $kp
  34.         set $kp++
  35.         set $i++
  36.     end
  37. end
  38.